home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #8 / utv1n8s2.d64 / vocab sharpener (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  10KB  |  216 lines
  1. 1 remvocabulary sharpener (c)1987 by scott calamar
  2. 2 rem published by softdisk publishing, inc.
  3. 10 sc=53281:sb=53280:dimrt$(33),d1$(33),d2$(33),d3$(33),d4$(33),ky(33)
  4. 11 s=54272:forl=0to28:pokes+l,0:nextl
  5. 12 pokesb,3:pokesc,1
  6. 20 printchr$(142)"[147]"spc(14)"[146][151]vocabulary[157][157][157][157][157][157][157][157][157]sharpener"
  7. 21 print"[152]"spc(15)"(c)1987[157][157][157][157]by[157][157][157][157]scott[157][157][157][157][157][157]calamar"
  8. 25 print" [151][164][169][155]  [158]                            [158]  [158]  [150]  [151][146]"
  9. 26 print" [163][223][155]  [158]                            [158]  [158]  [150]  [146]"
  10. 27 print" [155]published by softdisk publishing, inc."
  11. 28 print"[150]     (hit the space bar to begin)":gosub1002
  12. 50 print"[147][156]      [214][207][195][193][194][213][204][193][210][217] [211][200][193][210][208][197][206][197][210][156] features"
  13. 52 printspc(8)"words which are commonly":printspc(9)"learned in high school."
  14. 55 printspc(7)"[156][201]t is given in three[156] parts:"
  15. 56 printspc(9)"[151][208]art 1[156] consists of 33":printspc(11)"10th grade[156] items,"
  16. 57 printspc(10)"[151][208]art 2[156] includes 33":printspc(11)"11th grade[156] items,"
  17. 58 printspc(11)"and [151][208]art 3[156] has 33":printspc(11)"12th grade[156] items."
  18. 60 print"     [217]ou must successfully complete"
  19. 62 printspc(8)"each part before you can":printspc(10)"move on to the next."
  20. 66 printspc(7)"[212]his ensures that you will":printspc(10)"learn any words that"
  21. 70 printspc(9)"you don't already know.[145]"
  22. 72 gosub1000
  23. 80 print"[147]"spc(6)"[156][212]his is a multiple-choice":printspc(12)"synonym [156]test."
  24. 85 printspc(7)"[217]ou will be given a word
  25. 86 [153][166]7)"followed by fourclr choices."
  26. 88 [153][166]7)"lenhoose the word which has"
  27. 90 [153][166]14)"the sameclr or":[153][166]8)"almost the same meaning"
  28. 92 [153][166]10)"clras the first word."
  29. 95 [153][166]9)"(NULL)se the asc(NULL)(NULL)len(NULL)right$(NULL)(NULL) (NULL)val(NULL)(NULL)clr":[153][166]9)"to select your answer"
  30. 98 [153][166]17)"asc1 = atn":[153][166]17)"asc3 = peek":[153][166]17)"asc5 = len"
  31. 99 [153][166]17)"asc7 = str$"
  32. 100 [141]1000
  33. 102 x$[178]"":[153]"load"[166]9)"clr(NULL)ow, here's an example..."
  34. 104 [153][166]9)"lenhoose the best answer:"
  35. 105 [153][166]16)"easy"
  36. 106 [153][166]14)"stopatn  windy":[153][166]14)"stoppeek  simple"
  37. 107 [153][166]14)"stoplen  stubborn":[153][166]14)"stopstr$  heavy"
  38. 108 [153][166]14)" (NULL)o choose: "
  39. 109 [153][166]10)"asc1 = atn      asc5 = len":[153][166]10)"asc3 = peek      asc7 = str$"
  40. 110 x$[178]"":[161]x$:[139]x$[179][199](133)[167]110
  41. 111 [139]x$[177][199](136)[167]110
  42. 112 [139]x$[178][199](134)[167]115
  43. 113 [153][166]10)"right$ncorrect. (NULL)ry again!":[141]2000:[137]102
  44. 115 [153][166]13)"(NULL)ou've got it!"
  45. 116 [153][166]7)"clrleft$it the (NULL)(NULL)atnlenval peekatn(NULL) to peekvalchr$right$(NULL)":[141]1002
  46. 148 v[178]0:wr[178]0:[135]g:[129]x[178]1[164]33:[135]rt$(x),d1$(x),d2$(x),d3$(x),d4$(x),ky(x):[130]
  47. 149 ti$[178]"000000":e1[178]0:e2[178]0:e3[178]0
  48. 150 [129]x[178]1[164]33:[139]rt$(x)[179][177]""[167][141]400
  49. 151 [139]rt$(x)[178]""[167][130]:[137]500
  50. 153 [153]"print#"[166]8);:[141]200
  51. 154 le[178][195](rt$(x)):[153]""[166]20[171](le[173]2))rt$(x)
  52. 155 [153][166]12)"stopatn  "d1$(x):[153][166]12)"stoppeek  "d2$(x)
  53. 156 [153][166]12)"stoplen  "d3$(x):[153][166]12)"stopstr$  "d4$(x)
  54. 160 x$[178]"":[161]x$:[139]x$[179][199](133)[167]160
  55. 161 [139][198](x$)[178]140[167][153]"":[137]999
  56. 162 [139]x$[177][199](136)[167]160
  57. 164 [139][198](x$)[178]ky(x)[167]v[178]v[170]1:[141]170:rt$(x)[178]"":[130]x:[137]500
  58. 165 wr[178]wr[170]1
  59. 166 [151]s[170]5,130:[151]s[170]6,68:[151]s[170]24,15:[151]s,48:[151]s[170]1,4:[151]s[170]4,65
  60. 167 [151]s[170]3,1:[151]s[170]2,1
  61. 168 [141]172:[130]x:[137]500
  62. 170 [151]s[170]5,24:[151]s[170]6,136:[151]s[170]24,15:[151]s,5:[151]s[170]1,67:[151]s[170]4,17
  63. 172 [129]l[178]1[164]100:[130]l:[151]s[170]4,0:[151]s[170]24,0:[142]
  64. 200 [153]"on";:[139]g[178]10[167][153]x;
  65. 201 [139]g[178]11[167][153](x[170]33);
  66. 202 [139]g[178]12[167][153](x[170]66);
  67. 203 [153][163]17)v;
  68. 204 [153][163]27)wr
  69. 205 [142]
  70. 400 [151]sb,3:[151]sc,1
  71. 401 [153]"loadopen          (NULL)ocabulary (NULL)harpener          "
  72. 402 [153]"        (NULL)ry     (NULL)ight     (NULL)rong"
  73. 403 [153]"clr       absfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreint"
  74. 404 [129]l[178]1[164]12:[153]"       abs                       int":[130]l
  75. 406 [153]"       absposposposposposposposposposposposposposposposposposposposposposposposint"
  76. 410 [153][166]14)" (NULL)o choose: "
  77. 415 [153][166]10)"asc1 = atn      asc5 = len":[153][166]10)"asc3 = peek      asc7 = str$"
  78. 420 [153][166]8)"sysasc8 to return to (NULL)p(NULL)ime"
  79. 425 [142]
  80. 500 [141]650
  81. 501 [153]"load"[166]16)"(NULL)(NULL)(NULL) (NULL)asc 33":[153][166]12)g"cmdth chr$(NULL)atnstr$val (NULL)(NULL)(NULL)str$(NULL),"
  82. 502 [153][166]12)"(NULL)(NULL)(NULL) chr$(NULL)(NULL)"v"len(NULL)(NULL)(NULL)vallen(NULL)":[141]602
  83. 503 [139]v[179]33[167]550
  84. 505 [153][166]11)"len(NULL)(NULL)chr$(NULL)atn(NULL)(NULL)(NULL)atn(NULL)right$(NULL)(NULL)(NULL)!!!clr":[139]g[178]12[167]530
  85. 510 [141]590:[153][166]7)"atnstr$(NULL)atn(NULL)lenvalclose(NULL)(NULL)close(NULL)left$valclose(NULL)val(NULL)(NULL)close(NULL)val(NULL)val(NULL)":[141]595
  86. 515 [161]x$:[139]x$[178]""[167]515
  87. 516 [139]x$[179][177][199](95)[167][139]x$[179][177][199](32)[167]515
  88. 517 [139]x$[178][199](95)[167]999
  89. 518 t1[178]0:t2[178]0:t3[178]0:[137]148
  90. 530 [153]"  (NULL)(NULL)(NULL)'(NULL)val (NULL)atn(NULL)(NULL)val(NULL)valstr$ (NULL)(NULL)lenatnpeek(NULL)(NULL)atn(NULL)(NULL)close(NULL)left$atn(NULL)(NULL)val(NULL)val(NULL)!":[141]600
  91. 531 [129]l[178]1[164]20:[129]c[178]0[164]15:[151]sb,c:[130]c
  92. 532 [151]s[170]5,24:[151]s[170]6,136:[151]s[170]24,15:[151]s,100:[151]s[170]1,121:[151]s[170]4,17:[130]l
  93. 533 [141]172:[151]sb,2
  94. 534 [153][166]10)"(NULL)ress (NULL)(NULL)atnlenvalpeekatn(NULL) to":[153][166]12)"(NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)p(NULL)imewait"
  95. 535 [161]x$:[139]x$[179][177]" "[167]535
  96. 550 [141]590:[153][166]5)"(NULL)val(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)close(NULL)left$valclose(NULL)(NULL)(NULL)str$(NULL)close(NULL)(NULL)(NULL)close(NULL)right$(NULL)(NULL)valstr$":[141]595
  97. 552 [161]x$:[139]x$[178]""[167]552
  98. 554 [139]x$[179][177][199](140)[167][139]x$[179][177][199](32)[167]552
  99. 556 [139]x$[178][199](140)[167]999
  100. 560 [137]149
  101. 590 [153][166]9)"(NULL)(NULL)val(NULL)(NULL)close(NULL)left$valclose(NULL)(NULL)atnlenvalclosepeekatn(NULL)wait (NULL)(NULL)":[142]
  102. 595 [153][166]3)"(NULL)(NULL)close(NULL)(NULL)val(NULL)(NULL)  asc8 wait (NULL)(NULL)close(NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)p(NULL)imewait":[142]
  103. 600 [153][166]5)"right$(NULL)"a1"left$(NULL)((NULL)),"a2"(NULL)right$(NULL)((NULL)) atn(NULL)str$"a3"(NULL)vallen(NULL)":[142]
  104. 602 [153][166]5)"right$(NULL)"t1"left$(NULL)((NULL)),"t2"(NULL)right$(NULL)((NULL)) atn(NULL)str$"t3"(NULL)vallen(NULL)":[142]
  105. 650 e1[178][197]([200](ti$,2)):e2[178][197]([202](ti$,3,2)):e3[178][197]([201](ti$,2))
  106. 652 t3[178]t3[170]e3:[139]t3[177]60[167]t3[178]t3[171]60:t2[178]t2[170]1
  107. 654 t2[178]t2[170]e2:[139]t2[177]60[167]t2[178]t2[171]60:t1[178]t1[170]1
  108. 656 t1[178]t1[170]e1
  109. 658 a3[178]a3[170]e3:[139]a3[177]60[167]a3[178]a3[171]60:a2[178]a2[170]1
  110. 660 a2[178]a2[170]e2:[139]a2[177]60[167]a2[178]a2[171]60:a1[178]a1[170]1
  111. 662 a1[178]a1[170]e1:[142]
  112. 999 [158] 8[172]4096[170]4:[143] return to uptime
  113. 1000 [153][166]7)"left$it (NULL)(NULL)atnlenval peekatn(NULL) to continue"
  114. 1002 x$[178]"":[161]x$:[139]x$[179][177][199](32)[167]1002
  115. 1004 [142]
  116. 2000 [129]t[178]1[164]1000:[130]t:[142]
  117. 3000 [131]10,abhor,elect,enjoy,detect,detest,136
  118. 3002 [131]belated,defiled,delayed,infernal,enhanced,134
  119. 3004 [131]synthetic,thermal,mediocre,artificial,simultaneous,135
  120. 3006 [131]perturb,irk,recur,expend,economize,133
  121. 3008 [131]ratify,blare,approve,humiliate,speculate,134
  122. 3010 [131]skeptical,exotic,portly,crucial,doubting,136
  123. 3012 [131]jargon,lingo,qualm,tyrant,cuticle,133
  124. 3014 [131]pensive,dormant,sterile,thoughtful,belligerent,135
  125. 3016 [131]invin